home *** CD-ROM | disk | FTP | other *** search
/ PCGUIA 117 / PC Guia 117.iso / Software / Utils / Software2 / Product11 / Setup.exe / MT-3.16-full-en_US / mt-xmlrpc.cgi < prev    next >
Text File  |  2005-03-08  |  805b  |  34 lines
  1. #!/usr/bin/perl -w
  2.  
  3. # Copyright 2001-2005 Six Apart. This code cannot be redistributed without
  4. # permission from www.movabletype.org.
  5. #
  6. # $Id: mt-xmlrpc.cgi 10197 2005-03-09 00:27:57Z ezra $
  7. use strict;
  8.  
  9. my($MT_DIR);
  10. BEGIN {
  11.     if ($0 =~ m!(.*[/\\])!) {
  12.         $MT_DIR = $1;
  13.     } else {
  14.         $MT_DIR = './';
  15.     }
  16.     unshift @INC, $MT_DIR . 'lib';
  17.     unshift @INC, $MT_DIR . 'extlib';
  18. }
  19.  
  20. use XMLRPC::Transport::HTTP;
  21. use MT::XMLRPCServer;
  22.  
  23. $MT::XMLRPCServer::MT_DIR = $MT_DIR;
  24.  
  25. {
  26.     ## Shut off warnings, because SOAP::Lite 0.55 causes some
  27.     ## unitialized value warnings that seem to be connected to
  28.     ## the soap->action
  29.     local $SIG{__WARN__} = sub { };
  30.     my $server = XMLRPC::Transport::HTTP::CGI->new;
  31.     $server->dispatch_to('blogger', 'metaWeblog', 'mt');
  32.     $server->handle;
  33. }
  34.